home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / ASCII.DO < prev    next >
Text File  |  1991-06-28  |  308b  |  12 lines
  1. /*
  2.     print a table of ASCII character codes
  3. */
  4. v = set("newline");    % remember the current newline setting
  5. set("newline","");    % turns off new lines in ? command
  6. for(i=0;i<255;i=i+10) {
  7.     for(j=0;j<10;j=j+1)
  8.         ? i+j," ",chr(i+j)," ";
  9.     ? "\n";
  10. }
  11. set("newline",v);    % set newline to what it was on entry
  12.